home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / modula2f.zip / DOSCLOCK.DEF < prev    next >
Text File  |  1992-06-23  |  800b  |  21 lines
  1. (* DOSclock     Date and time access procedures     1992     Chris Harsman
  2.     This module of procedures was designed to allow reading and changing of
  3.     the DOS internal clock. *)
  4.  
  5. DEFINITION MODULE DOSclock;
  6.  
  7. PROCEDURE GetDate(VAR day:ARRAY OF CHAR; VAR month, date, year:CARDINAL);
  8.     (* Will return the day of the week, SUNDAY through SATURDAY, and the month
  9.        date and year as a number. *)
  10.  
  11. PROCEDURE SetDate(month, date, year:CARDINAL);
  12.     (* Will set the month, date and year with the specified values. *)
  13.  
  14. PROCEDURE GetTime(VAR hour, min, sec:CARDINAL);
  15.     (* Will return the hour, minute, and second in 24 hour format. *)
  16.  
  17. PROCEDURE SetTime(hour, min, sec:CARDINAL);
  18.     (* Will set the hour, minute, and second with the specified values. *)
  19.     
  20. END DOSclock.
  21.